﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%Call Head2()%>
<title>文件删除</title></head><body><div class='main400'>
<%
dim path,TP,ok
path=trim(request.querystring("path"))
ok=trim(request.querystring("ok"))
TP=trim(request.querystring("TP"))
if path="" then
	Call Error2("文件地址无效！")
end if
if ok<>"" then
	path=Server.MapPath(path)
	Set fso = server.CreateObject("Scripting.FileSystemObject")
	IF (fso.FileExists(path)) Then
		Set delfile = fso.GetFile(path)
		delfile.Delete
		set delfile=nothing
			w "文件删除成功！<br/>"
		else
			w path & "文件不存在！<br/>"
		end if
	set fso=nothing
else
	w "您确认要删除该文件？<br/><a href=""filedel.asp?path="&path&"&amp;TP="&TP&"&amp;ok=1&amp;sid="&sid&""">是的</a><br/>"
end if
%><a href='fileman.asp?TP=<%=TP%>&amp;sid=<%=sid%>'>[返回上级]</a><br/>
<a href="Files.asp?sid=<%=sid%>">[文件管理]</a><br/>
<a href="index.asp?sid=<%=sid%>">[站长工具]</a><%call Last2%>